home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iii 85.d64 / menu.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  85 lines
  1. 5 IFN>0THEN140
  2. 9 :
  3. 10 REM TORONTO PET USERS GROUP INC.
  4. 11 :
  5. 12 REM TO THE BEST OF OUR KNOWLEDGE
  6. 13 REM ALL SOFTWARE ON THIS DISK IS
  7. 14 REM IN THE PUBLIC DOMAIN
  8. 15 :
  9. 16 REM DISK PREPARED BY DAVID BRADLEY
  10. 17 :
  11. 20 REM MENU PROGRAM BY JOHN CROOKSHANK
  12. 21 :
  13. 22 REM MODIFIED BY DAVID BRADLEY
  14. 30 :
  15. 40 POKE53280,0:POKE53281,0
  16. 45 GOSUB3000
  17. 50 PRINT"[154]"TAB(12)"[204]OADING [205]ENU [198]ILE..."
  18. 55 CLOSE2:CLOSE15
  19. 60 PRINTTAB(15)"[208]LEASE [215]AIT"
  20. 70 OPEN15,8,15:OPEN2,8,2,"0:MENUFILE,S,R"
  21. 80 GOSUB2000
  22. 90 INPUT#2,NA$
  23. 100 IFLEN(NA$)<39THENNA$=" "+NA$
  24. 105 IFLEN(NA$)<40THENNA$=NA$+" ":GOTO100
  25. 110 INPUT#2,N:DIML$(N)
  26. 120 FORX=0TON
  27. 130 INPUT#2,L$(X):NEXT:CLOSE2:CLOSE15
  28. 131 LOAD"MENUML",8,1
  29. 140 PC=0:P=INT(N/10)
  30. 150 PRINT"[147][158]    [198]ROM [212]HE [212]ORONTO [208]ET [213]SERS [199]ROUP    ";
  31. 160 PRINT"";NA$
  32. 170 PRINT"             [196]ISK [195]ONTENTS: "
  33. 175 IFPC>PTHENPC=0
  34. 180 PRINT"              [208]AGE"PC+1" OF"P+1:PRINT:PRINT
  35. 190 PE=9:IFPE+(PC*10)>NTHENPE=N-(PC*10)-1
  36. 200 FORX=0TOPE
  37. 210 PRINTTAB(5)"[154][208]ROGRAM #"X"-[154] "L$(X+(PC*10))
  38. 220 NEXT
  39. 230 PRINT"[208]RESS 0 -"PE" TO [204]OAD [208]ROGRAM"
  40. 240 PRINT"[208]RESS [210][197][212][213][210][206] TO SEE [206]EXT [208]AGE"
  41. 250 PRINT"[158][208]RESS [198]7 TO [210]EAD [208]ROGRAM [196]ESCRIPTIONS"
  42. 255 PRINT"[208]RESS [209] TO [209][213][201][212][154]":POKE198,0:POKE679,0
  43. 260 GETA$:IFA$=""THEN260
  44. 265 IFA$="Q"THENCLOSE2:CLOSE15:END
  45. 270 IFA$=CHR$(13)THENPC=PC+1:GOTO150
  46. 280 IFA$="[136]"THEN350
  47. 290 IFA$<"0"ORA$>CHR$(PE+48)THEN260
  48. 300 A=VAL(A$)
  49. 305 IFA>PETHEN260
  50. 306 GOSUB 3000:FORDB=1TO3500:NEXT
  51. 307 POKE53281,6:POKE53280,14
  52. 310 PRINT"[147][144][154]"CHR$(142)"LOADING: "L$(A+(PC*10))
  53. 320 PRINT"LOAD"CHR$(34)L$(A+(PC*10))CHR$(34)",8,1"
  54. 330 PRINT"RUN"
  55. 340 POKE631,13:POKE632,154:POKE633,13:POKE198,3:NEW
  56. 350 L=0:P$=""
  57. 360 OPEN15,8,15:OPEN2,8,2,"0:DOCFILE,S,R":GOSUB2000
  58. 370 PRINT"[147][154]";
  59. 380 SYS823
  60. 390 CLOSE2:CLOSE15
  61. 400 IFPEEK(679)=88THEN510
  62. 480 PRINT"[197]ND OF [198]ILE - [208]RESS ANY KEY FOR [205]ENU";
  63. 495 POKE198,0:CLOSE2:CLOSE15
  64. 500 GETA$:IFA$=""THEN500
  65. 510 PC=0:GOTO150
  66. 2000 INPUT#15,E1,E$,E2,E3
  67. 2010 IFE1=0THENRETURN
  68. 2015 CLOSE2:CLOSE15
  69. 2020 PRINT"[147] [196]ISK [197]RROR! "
  70. 2030 PRINT""E1;"[157] ";E$;E2;"[157]";E3"[157] "
  71. 2040 PRINT"[208]LEASE CHECK YOUR [196]ISK AND [196]RIVE"
  72. 2045 PRINT"BEFORE TRYING TO [210][213][206] AGAIN.[154]"
  73. 2050 END
  74. 3000 PRINT"[147]":POKE53280,0:POKE53281,0
  75. 3010 PRINT"         ***** ***** *   * *****
  76. 3020 [153]"           *   *   * *   * *
  77. 3030 PRINT"           *   ***** *   * *  **
  78. 3040 [153]"           *   *     *   * *   *
  79. 3050 PRINT"           *   *     ***** *****
  80. 3060 [153]"   ((null)HE (null)ORONTO (null)ET (null)SERS CHR$ROUP RIGHT$NC.)"
  81. 3070 [153]"       1912A ATNVENUE (null)OAD (null)UITE #1"
  82. 3080 [153]"        (null)ORONTO, (null)NTARIO, LENANADA"
  83. 3090 [153]"                 (null)5(null) 4ATN1
  84. 3100 RETURN
  85.